home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / business / fwmefeng.lha / FW_MEf-e / ISeveral.fw.long < prev    next >
Text File  |  1997-01-02  |  3KB  |  134 lines
  1. /* ============================================ */
  2. /* Final Writer Arexx Macro - Insert Several    */
  3. /* This macro will duplicate any selected       */
  4. /* graphic objects. (grouped or ungrouped)      */
  5. /* by Heiko Schröder (Age Ass)                  */
  6. /* $VER: Insert Several 1.30e (97/01/02)        */
  7. /* ============================================ */
  8. R='0A'X
  9. Dre=0
  10. Sei=0
  11.  
  12. Address='FinalW'
  13. Options results
  14.  
  15. STATUS PORTNAME
  16. FW = result
  17. address = FW
  18.  
  19. SIGNAL ON BREAK_C
  20. SIGNAL ON SYNTAX
  21.  
  22. 'ShowMessage 2 1 "Insert Several V1.30e - 97/01/02" "© Heiko Schroeder" "E-Mail: s93324@fh-telekom-leipzig.de" "(-:" "Ok" "(-:"'
  23.  
  24. GraphicTool
  25. Group
  26. CurrentObject
  27. ObjectId = Result
  28. IF ObjectId=0 THEN do
  29.    'ShowMessage 1 1 "Macro: Insert Several" "A B O R T" "No graphical object selected..." "Okay" "" ""'
  30.    EXIT
  31. End
  32. STATUS View
  33. Zoom=result
  34.  
  35. STATUS Pages
  36. Seiten=result
  37.  
  38. STATUS Page
  39. Seite=result
  40.  
  41. Copy
  42. IF RC=0 THEN do
  43.    CurrentObject
  44.    ObjectID=result
  45.    GetObjectCoords ObjectID
  46.    Parse var result Seite x y w h
  47.    wl=w
  48.    hl=h
  49.    GetObjectRotation ObjectID
  50.    Dreh=result
  51.    GetObjectType ObjectID
  52.    Typ=result
  53.  
  54.    If Typ=2|Typ=3 then do
  55.       If Seite~=1 then do
  56.          'ShowMessage 1 1 "FW has problems with lines outside" "the page 1... CANCEL" "" "Okay" "" ""'
  57.          Exit
  58.       End
  59.    End
  60.    Ungroup
  61.  
  62.    RequestText '"Insert Several" "Number of copies" ""'
  63.    Anzahl=Result
  64.    If Anzahl=""|Anzahl=0 then call Ende
  65.    RequestText '"Insert Several" "Horizontal displacement in cm" ""'
  66.    Hor=Result
  67.    If Hor="" then Hor=0
  68.    RequestText '"Insert Several" "Vertical displacement in cm" ""'
  69.    Ver=Result
  70.    If Ver="" then Ver=0
  71.    If Typ~=2&Typ~=3 then do                     /*Lines*/
  72.       RequestText '"Insert Several" "Rotation in Degree" ""'
  73.       Dre=Result
  74.       If Dre="" then Dre=0
  75.  
  76.       RequestText '"Insert Several" "On which page? 0=selected page" ""'
  77.       Sei=Result
  78.       If Sei=""|Sei=0 then Sei=Seite
  79.    end
  80.  
  81.    'ShowMessage 1 1 "Screen output?" "" "" "normal" "speed" ""'
  82.    ba=result
  83.    If ba=2 then View 20
  84.  
  85.    s=Sei-Seiten
  86.  
  87.    Do a=1 to s
  88.       InsertPageBreak
  89.    End
  90.       
  91.    Do i=1 TO Anzahl
  92.       Paste
  93.       CurrentObject
  94.       ObjectID=Result
  95.       a=x+(Hor*i)
  96.       b=y+(Ver*i)
  97.       Winkel=Dreh+Dre*i
  98.       If Typ=2|Typ=3 then do                     /*Lines*/
  99.          w=wl+(Hor*i)
  100.          h=hl+(Ver*i)
  101.          Sei=Seite
  102.       End
  103.       SetObjectCoords ObjectID Sei a b w h    /*Problems by Lines*/
  104.       SetObjectRotation ObjectID Winkel
  105.       Ungroup
  106.    End
  107. End
  108. Redraw
  109. if ba=2 then View Zoom
  110. GoToPage Sei
  111. 'ShowMessage 2 1 "Thanks for using." "" "" "@-`-" "Please" ":-))"'
  112. Exit
  113.  
  114. ENDE:
  115. View Zoom
  116. 'ShowMessage 1 1 "Incorrect number of copies..." "A B O R T" "" "Okay" "" ""'
  117. EXIT
  118.  
  119. SYNTAX:
  120. View Zoom
  121. 'ShowMessage 1 1 "There was an error." "Error-identification you can find in »Ram:Error«" "" "Okay" "" ""'
  122. address "REXX"
  123. Open("F","Ram:Error","W")
  124. write ("F", "ATTENTION! FW_MEf V1.3e-Error")
  125. write ("F",'Error in line' SIGL ':' ERRORTEXT(RC))
  126. write ("F", 'Please report the author. » s93324@fh-telekom-leipzig.de «'||R||R)
  127. Close ("F")
  128. EXIT
  129.  
  130. BREAK_C:
  131. View Zoom
  132. 'ShowMessage 1 1 "Macro-Break..." "" "" "I know..." "" ""'
  133. EXIT
  134.